home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesevnt4.s < prev    next >
Encoding:
Text File  |  1989-04-08  |  795 b   |  28 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.  
  10. ;*************************************************************************
  11. ;*
  12. ;* Event manager routines 4 of n.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; evnt_message 
  18. ;-------------------------------------------------------------------------
  19.  
  20. _evnt_mesag::
  21.           .cargs    #4,.pbuf.l
  22.           AControl  23,0,1,1
  23.           lea       .pbuf(sp),a0        ; -> addrin
  24.           ACall     RET2USER
  25.  
  26. ;         end of code
  27.  
  28.